home *** CD-ROM | disk | FTP | other *** search
/ Business Assistant / Business Assistant.iso / indus / cpaledg1 / daily.bas < prev    next >
BASIC Source File  |  1986-02-28  |  3KB  |  64 lines
  1. 500  ' COPYRIGHT 1985 TRONOLONE & FOSTER, PC
  2. 1000 CLEAR: KEY OFF: CLS: LOCATE 5,1: BEEP: BEEP: BEEP
  3. 1010 LOCATE 3,1: PRINT SPC(35) "CPA-LEDGER"
  4. 1020 LOCATE 5,1: PRINT SPC(35) "DAILY MENU": LOCATE 8,1
  5. 1030 PRINT"SELECT ONE OF THE OPTION NUMBERS BELOW.": PRINT
  6. 1040 PRINT"  1. ENTER NEW TRANSACTIONS IN THE GENERAL LEDGER."
  7. 1050 PRINT"  2. PRINT AN UNADJUSTED TRIAL BALANCE."
  8. 1060 PRINT"  3. PRINT AN INCOME STATEMENT AND A BALANCE SHEET."
  9. 1070 PRINT"  4. PRINT TRANSACTIONS THAT HAVE BEEN POSTED TO THE GENERAL LEDGER.
  10. 1080 PRINT"  5. PRINT GENERAL LEDGER ACCOUNTS WITH DETAILS OF ALL DEBITS AND ALL CREDITS."
  11. 1090 PRINT"  6. PRINT BANK DEPOSITS AND CHECKS WRITTEN (CHECK REGISTER)."
  12. 1100 PRINT"  7. PRINT GENERAL LEDGER ACCOUNTS AND THEIR BALANCES."
  13. 1110 PRINT"  8. ADD NEW ACCOUNTS TO THE GENERAL LEDGER."
  14. 1120 PRINT"  9. PRINT A POST-CLOSING TRIAL BALANCE.
  15. 1130 PRINT" 10. STOP ALL CPA-LEDGER PROCESSING AND RETURN CONTROL TO PC-DOS."
  16. 1140 LOCATE 21,1: PRINT"WHICH OPTION NUMBER DO YOU SELECT?";: GOSUB 1390: ROW=21: COLUMN=37: LENGTH=2: GOSUB 1400
  17. 1150 F1=0:FOR I = 1 TO LEN(I8$): IF MID$(I8$,I,1) < "1" OR MID$(I8$,I,1) > "9" THEN F1=1: NEXT I
  18. 1160 IF F1 = 0 AND VAL(I8$) => 1 AND VAL(I8$) =< 10 THEN GOTO 1210
  19. 1170 BEEP: BEEP: BEEP:LOCATE 22,1: PRINT"ENTRY IS INCORRECT. TRY AGAIN. PRESS ANY KEY TO CONTINUE.": GOSUB 1390
  20. 1180 K$=INKEY$
  21. 1190 IF K$="" THEN GOTO 1180
  22. 1200 LOCATE 22,1: PRINT SPACE$(80): GOTO 1140
  23. 1210 IF I8$="10" THEN CLS: SYSTEM
  24. 1220 CLS: BEEP: BEEP: BEEP: LOCATE 10,1: PRINT"PRESS THE  'OFF' SWITCH ON YOUR PRINTER.  ONCE THE PRINTER IS SWITCHED OFF,"
  25. 1230 PRINT"ADJUST THE PAPER SO THAT THE PAPER IS AT TOP-OF-PAGE.  THE PAPER WILL BE AT"
  26. 1240 PRINT"TOP-OF-PAGE WHEN THE PRINTER WILL PRINT ON THE VERY FIRST LINE AT THE TOP OF"
  27. 1250 PRINT"THE PAGE.  AFTER THE PAPER IS ADJUSTED SO THAT IT IS AT TOP-OF-PAGE, PRESS"
  28. 1260 PRINT"THE PRINTER  'ON' SWITCH.": PRINT
  29. 1270 PRINT"PRESS ANY KEY WHEN YOU ARE READY TO CONTINUE.": GOSUB 1390
  30. 1280 K$=INKEY$
  31. 1290 IF K$="" THEN GOTO 1280
  32. 1300 IF I8$="1" THEN GOSUB 1610: RUN "A:POST.BAS": END
  33. 1310 IF I8$="2" THEN GOSUB 1610: RUN "A:TRIBAL.BAS": END
  34. 1320 IF I8$="3" THEN GOSUB 1610: RUN "A:PANDL.BAS": END
  35. 1330 IF I8$="4" THEN GOSUB 1610: RUN "A:SELTRA.BAS": END
  36. 1340 IF I8$="5" THEN GOSUB 1610: RUN "A:ACTDTL.BAS": END
  37. 1350 IF I8$="6" THEN GOSUB 1610: RUN "A:CHKREG.BAS": END
  38. 1360 IF I8$="7" THEN GOSUB 1610: RUN "A:GLACTS.BAS": END
  39. 1370 IF I8$="8" THEN GOSUB 1610: RUN "A:NEWACT.BAS": END
  40. 1380 IF I8$="9" THEN GOSUB 1610: RUN "A:PSTCLS.BAS": END
  41. 1390 DEF SEG=0: POKE 1050, PEEK(1052): RETURN
  42. 1400 I8$=""
  43. 1410 FOR X = 1 TO LENGTH: I8$=I8$ + CHR$(254): NEXT X
  44. 1420 LOCATE ROW,COLUMN
  45. 1430 PRINT I8$;
  46. 1440 POINTER = 1: A$=" "
  47. 1450 WHILE (ASC(A$) <> 13)
  48. 1460 A$ = INPUT$(1)
  49. 1470 IF (POINTER > LENGTH) AND (ASC(A$) = 13) THEN GOTO 1590
  50. 1480 IF (POINTER > LENGTH) AND (ASC(A$) = 8) THEN GOTO 1540
  51. 1490 IF (POINTER > LENGTH) THEN BEEP: BEEP: BEEP: GOTO 1590
  52. 1500 IF (ASC(A$) >= 32) THEN MID$(I8$,POINTER,1) = A$: POINTER = POINTER +1:  GOTO 1570
  53. 1510 IF (POINTER = 1) AND (ASC(A$) = 8) THEN BEEP: BEEP: BEEP: GOTO 1570
  54. 1520 IF (ASC(A$) <> 8) THEN GOTO 1560
  55. 1530 IF MID$(I8$,POINTER,1) = CHR$(254) THEN
  56. 1540    MID$(I8$,POINTER-1,1) = CHR$(254)
  57. 1550    POINTER = POINTER -1
  58. 1560 IF (ASC(A$) = 13) THEN I8$ = MID$(I8$,1,POINTER-1): POINTER = LENGTH + 1
  59. 1570 LOCATE ROW,COLUMN
  60. 1580 PRINT I8$
  61. 1590 WEND
  62. 1600 RETURN
  63. 1610 CLS: LOCATE 10,31: PRINT"PLEASE STAND BY.": RETURN
  64.